home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / vol15n11.zip / NUMDIRS.BAT < prev    next >
DOS Batch File  |  1996-03-04  |  1KB  |  48 lines
  1. @ECHO OFF
  2. :: --- Set starting value
  3. :: --- M=thousands, H=hundreds, T=tens, O=ones
  4. :: --- This example starts at 7000
  5. SET M=7
  6. SET H=0
  7. SET T=0
  8. SET O=0
  9. :Loop
  10. :ReturnM
  11. ECHO Directory is %M%%H%%T%%O% (put commands here)
  12. :: --- Replace '7600' in next line with ending value 
  13. IF '%M%%H%%T%%O%'=='7600' GOTO OutOfLoop
  14. SET Place=O
  15. GOTO Inc
  16. :ReturnO
  17. IF NOT '%O%'=='0' GOTO Loop
  18. SET Place=T
  19. GOTO Inc
  20. :ReturnT
  21. IF NOT '%T%'=='0' GOTO Loop
  22. SET Place=H
  23. GOTO Inc
  24. :ReturnH
  25. IF NOT '%H%'=='0' GOTO Loop
  26. SET Place=M
  27. GOTO Inc
  28.  
  29. :Inc
  30. IF '%Place%'=='O' SET Value=%O%
  31. IF '%Place%'=='T' SET Value=%T%
  32. IF '%Place%'=='H' SET Value=%H%
  33. IF '%Place%'=='M' SET Value=%M%
  34. IF '%Value%'=='0' SET %Place%=1
  35. IF '%Value%'=='1' SET %Place%=2
  36. IF '%Value%'=='2' SET %Place%=3
  37. IF '%Value%'=='3' SET %Place%=4
  38. IF '%Value%'=='4' SET %Place%=5
  39. IF '%Value%'=='5' SET %Place%=6
  40. IF '%Value%'=='6' SET %Place%=7
  41. IF '%Value%'=='7' SET %Place%=8
  42. IF '%Value%'=='8' SET %Place%=9
  43. IF '%Value%'=='9' SET %Place%=0
  44. GOTO Return%Place%
  45.  
  46. :OutOfLoop
  47. FOR %%v IN (O T H M Place Value) DO SET %%v=
  48.